00100	QQQ
00200	CLAR ;
00300	P2 RHY/6////8 X 5/10 X 6/12 X 7/14 X 8/16 X 9/FINE*;
00400	P3 C4/P4 1000/P5 F1/P7 F3;
00450	P12 SUBN NUM/3////4 X 5/5 X 6/6 X 7/7 X 8;
00500	8 X 9*;
00600	P11 NUM/A(0/1/2/3)/B(@A/4)/C(@B/5)/D(@C/6)/E(@D/7)/@E/8*;
00700	END;
00800	TOOT ;
00900	DUPL 1;
01000	P11 NUM/F(3/4/5/6)/G(@F/7)/H(@G/8)/I(@H/9)/J(@I/10)/@J/11*;
01010	P6 F3;
01100	END;